home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 41 / CD Expert nº 41.iso / Tux / tux.exe / tuxracer-win32-0.60 / courses / common / tree_polyhedron.tcl < prev    next >
Encoding:
Text File  |  2000-10-01  |  452 b   |  26 lines
  1. #
  2. # Polyhedron representing tree 
  3. #
  4. # Syntax: tux_tree_poly <vertex list> <polygon list>
  5. #     where each polygon in the polygon list is a list of indices into
  6. #     the vertex list.
  7. #
  8. set tree_poly {{              
  9.     { 0 0 0 }
  10.     { 0.0 0.15  0.5 }
  11.     { 0.5 0.15  0.0 }
  12.     { 0.0 0.15 -0.5 }
  13.     {-0.5 0.15  0.0 }
  14.     { 0 1 0 }
  15. } {
  16.     { 0 1 4 }
  17.     { 0 2 1 }
  18.     { 0 3 2 }
  19.     { 0 4 3 }
  20.     { 1 5 4 }
  21.     { 2 5 1 }
  22.     { 3 5 2 }
  23.     { 4 5 3 }
  24. }}
  25.  
  26.